<%
'''站点模型类
Class AdminModelCoreInfo

	'''构造
	Private Sub Class_Initialize()
	End Sub
	
	'''析构
	Private Sub Class_Terminate()
	End Sub
	
	'''检测用户登录
	''' @param string p_email 邮箱名
	''' @param string p_pwd 未加密时密码
	Public Function getSystemInfo()
		Dim t_info : Set t_info = Sa.Dictionary
		t_info("操作系统") = "Windows"
		t_info("主机名IP端口") = 80
		t_info("运行环境") = "IIS"
		t_info("程序目录") = "1345"
		Set getSystemInfo = t_info
	End Function
End Class
%>